home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / bbs / microbbs1.1 / commands / flg / flg.builddir < prev    next >
Encoding:
AmigaDOS Script File  |  1996-01-23  |  981 b   |  29 lines
  1. .KEY DIR/A,SOURCEDIR/A,TARGETDIR/A,FLGDIR/A
  2. .BRA {
  3. .KET }
  4.  
  5. SET PAT "~(#?.(readme|bbs|info)|INDEX)"
  6.  
  7. IF NOT EXISTS {TARGETDIR}{DIR}
  8.     C:MakeDir `RexxC:RX 'Say( left( "{TARGETDIR}{DIR}", length( "{TARGETDIR}{DIR}") - 1))`
  9. ENDIF
  10.  
  11. RexxC:RX 'Say( Translate( "{SOURCEDIR}{DIR}", "..", "/:")) >ENV:TRANSDIR
  12.  
  13. C:Delete {TARGETDIR}{DIR}Files.bbs >NIL:
  14.  
  15. C:List {DIR} FILES LFORMAT "%-22N %10L %6D %C" PAT $PAT TO T:FLG.DIR{$$}
  16.  
  17. C:List T:FLG.DIR{$$} LFORMAT "%B" TO ENV:SIZE
  18.  
  19. IF empty NOT EQ $SIZE
  20.     C:Sort T:FLG.DIR{$$} T:FLG.DIR{$$} >NIL:
  21.     {FLGDIR}FLG.TrimDir.rexx T:FLG.DIR{$$} T:FLG.DIR.2.{$$}
  22.  
  23.     C:Echo >>{TARGETDIR}{DIR}Files.bbs "*n--------------------------------------------------------------------------------"
  24.     RexxC:RX >>{TARGETDIR}{DIR}Files.bbs  'Say( Center( $TRANSDIR, 80))
  25.     C:Echo >>{TARGETDIR}{DIR}Files.bbs "--------------------------------------------------------------------------------*n"
  26.  
  27.     C:Attach F=T:FLG.DIR.2.{$$} T={TARGETDIR}{DIR}Files.bbs
  28. ENDIF
  29.